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SPECIAL TUESDAY MEETING 


ATARI CAMERA CREW HERE! 


BENIOFF IS BACK! 


Benioff At Large 


The Return Of The Jenioff;c “Look, Marc, take my word for it: You 
are not going to have time to write articles while you are going to 
USC.", chants the intelligent editor to the bewildered writer. Little did | 
know, how right Dr. Dunn was. Over the past 8 months, | have written a 
little here, and a little there — but nothing like the regular schedule | 
was keeping before. This article marks my two year anniversary with 
ACE. So, now | am out of school for the summer, | decided to sit down 
and write the article waiting to be written. 

Say Good Bye! No, you are not going to say good bye to me, but to 
the following ATARI products. Say good bye to the: 400, 410, 800, 810, 
822, 825, and the 850. According to high sources these products will 
be discontinued at the JUNE CES. But, there will be some products to 
replace them. The following products will be added at the CES: 600XL, 
800XL, 1201XL, 1022, and 1027 Letter Quality Printer. So, what are all 
these things? 

The New Products: The 600XL is a 16k full stroke 400. It is 
expandable to 64K through a new board. It will have many of the same 
features as the 1200XL. The 600XL will retail for about $149.00. The 
800XL is 64K 800 in a black and silver C64-type case. This new 
machine will retail for about $299.00. The 1201XL is supposedly a 1200 
with a built in modem and a speech synthesiser. It also should be 
expandable to carry a Sony 3.5" drive. The 1022 is a dot matrix printer, 
and the 1027 is letter quality. Atari is also planning to replace the 810 
with a double/single density Tandon drive. All of these new hardware 
products sound very interesting. 

New Software From ATARI: In conjunction with the 5200 system, 
ATARI will be incorporating the following software to the PCS line: 
Pole Position, Joust, Tempest, Battlezone, Pengo, Moon Patrol, 
Kangaroo, Robotron, Jungle Hunt, and Vanguard. Pole Position and 
Vanguard have been converted for the PCS and should be shown at 
the show. Without adaptions for the 5200, these new software 
products will be released: Microsoft Basic 2, DOS 3, Dig Dug, 
Assembler Editor 2, New Basic, Eastern Front Rom, Donkey Kong, 
Tennis, Logo, MS. PacMan, Superman 3, Music System 1 + 2, and a 
new game called Liberator. All of these new software products will be 
welcome additions to anyone's ATARI library. 

A Coleco VCS? Evidently, ATARI has sold a license to Coleco to 
produce a VCS clone. The new machine called Gemini, will retail for 
about $75.00. But, look out, becuase ATARI is going to turn around and 
announce a new VCS for $50.00. That will not make Coleco too happy. 

New Third Party Software: The following products have recently 
been released for the ATARI PCS. | am unable to review all of these 
products, but have rated them with stars. (5-Great...1-Not So Good) 


Jawbreaker 11, **** 

Wall War, ****, Sierra 

AE, ****, Sierra 

Sky Blazer, ***, Broderbund 
Shamus: Case Il, *****, Synapse 
Poker Sam, ***, Don’t Ask 

Spy’s Demise, ****, Penguin 
Pharaoh’s Curse, *****, Synapse 
Zaxxon, ****, Datasoft 
Matchboxes, ****, Broderbund 
Ultima 11, ****, Sierra 
Suspended, *****, Infocom 
Gwendolyn by Marc R. Benioff, the stars would run off the page, 
Artworx 

Game Hints: Have you ever tried: 1)type the phone number of Big 
Five into the game during game play. Then press SHIFT and the level 
you want to go to. 2)Press CTRL G in Chicken. 3)Put the joysticks is 
port 3-- 4 in Sea Dragon and select your own level. 4)Press OPTION 
after being killed in any of the new EPYX games. 

A New ATARI? ATARI does not sit around and do nothing all day, 
they develop new things for future years. One of the newest things is а 
new computer called a mountain range and also a popular software 
house (Can You Guess It's Name?). This computer will have 5 special 
processors on board and a megabyte of on board memory. It is the size 
of a book, and the screen lifts up, in a similar way to a book cover. It is 
a4 color liquid crystal display. The music system (called by a popular 
composer's name, Ama-who?), is superb. It is planned for release 
sometime in 1984. | can hardly wait for this one. 

Me And My 1200. Recently, | bought a 1200, and I don't regret it fora 
second. | think some of you have also bought some, and you may be 
interested in little tricks. Here is one: Poke 622,255. OP in memory. 
The listing FINE SCROLLS upward. This is a nice feature of the 1200. 

The end. And so! come To the end of another Benioff At Large. And, 
| didn't use awesome, once! That was beyond Awesome! т 

— Магс 


News and Reviews 
by Mike Dunn, Co-Editor 


First, the rumors about the new line-up of Atari computers, 
according to various other newsletters, club presidents, and others 
who make guesses — let’s see how much comes to pass. First the 
low end will be the Atari 400, which will sell for $99 to compete with 
the "toy"computers. Next will be the Atari 600, which looks like the 
1200 but has 16K. It is being advertised by one mail order outfit for 
$199. It will have an optional outboard interface allowing expansion of 
memory to 64K plus serial and parallel ports. Next will be a stripped 
down Atari 800 with 48K but no right slot or extra slots for new boards, 
and only two joystick ports. The next upgrade will be a redesigned 
Atari 1200 allowing all software to work with it — new ROMs, or 
perhaps just the 800 ROMs. Next in line will be the present Atari 800 
— by the way, you can now get a $100 rebate from Atari if you buy one 
— a truely great buy. The top of the line is a new computer, name 
unknown “that will make all the user club members who were 
disappointed with the 1200 leap with joy". To be announced in June at 
the CES, it will feature a 16-bit processor, or possibly the 8-bit version 
of the 68000, and have a 6502 co-processor so present Atari software 
can be used. It will have expansion slots, and all the goodies you 
might want. We will see if any of the above happens! 

In the March issue of Oregon Business, there is a wonderful article 
of a 72 year old inventor who has lived most of his life in a small 
coastal Oregon town. Ted Smith developed an inker for printer ribbons 
after he decided it was too expensive to buy ribbons for his TRS-80 
computer. Starting a company in his home, using handicapped 
persons when possible, he now markets his ]Maclnker[ re-inkers 
nationally. Since | use a new ribbon for each issue to get the sharpest 
reproduction, | gave Mr. Smith a call. On the other end of the line was a 
delightful, enthusiastic gentleman who explained he had a model for 
over 100 printers now, at list prices of $52 to $64. | ordered one, and he 
said to use it, and if | liked it, send me a check! After explaining about 
our club, and that our membership was world-wide, etc., he said he 
would give a 25% discount to ACE members if they just tell him!! The 
next day, | received my new Масіпкег for the IDS MicroPrism, a printer 
which is difficult to find ribbons for anywhere except the company. 
The device is a large, oval table made of cast aluminum, with holes 
drilled into it to hold your ribbon cartridge. It hooks up to a slow speed 
motor, and winds between two felt resevoirs filled with the provided 
ink. You then let it run for У2 to 1 hours, and allow the ribbon to dry 
overnight. Your 'new" ribbon is really "better than new" as the 
advertisement says, as it has not been able to dry out in the package. 
The unit is not very pretty — it looks like it was designed by a 
machinest for function and durability (Mr. Smith designed and 
manufactured reloading equipment for target rifleman before he 
retired), but it works great! It is a little messy, so wear rubber gloves or 
have “Goop” available to clean up with. Contact Mr. Smith at S.A.S. 
Industries, 3091 N. Bay Dr., North Bend, Oregon 97459 (503) 756-7155 
— be sure to mention ACE for your discount. 

Just at press time, | received several new things. First is a new book 
from Creative Computing, called The Creative Atari. Edited by David 
and Sandy Small and George Blank, it combines much of what has 
been in the Creative Computing issues, as well as much new and 
expanded articles. It even has an article by me which | submitted to 
the magazine about 2 years ago, and was told it would be in their new 
book, “due out in a couple of months". Many of the new articles are by 
editors and presidents of many of the user groups around the country 
— a very nice book, looks like one for the “Must” list. Broderbund sent 
a wonderful family game called Matchboxes. It really looks great — 
based on the game of the same name, it has spectacular graphics and 
various word game choices. We'll find some young person to review it. 
| have also bought the OS board with David Young's Omnimon! 
monitor, and the MPC EPROM burner. On order still is the new Austin 
Franklin 80 — column board, due to be shipped “any day now" for the 
last month. Hope to get it to work with my ATR 8000. Speaking of the 
ATR 8000, local club members are buying them like crazy, and the 
program allowing you to read many disk formats is about ready to be 
shipped. 

Our new disks, the “Best of 1983 #1”-which includes the GTIA 
Sketchpad and some pictures, several Stan Ockers games, games by 
Sydney Brown, etc., and “Source Codes", a collection of Assembly 
language routines are now available for $15 each or $20 for both. There 
are also 3 new education disks, including some modified old programs 
and many new ones for $10 each or $15 for 2. These are also all 
available on cassette for the same single price. 

Chuck and Jody Ross, our librarians, are completely revising and 
updating our Library List. It will be better organized, better identified, 
and easier to understand. Send a SASE to them at 2222 Ironwood, 
Eugene, Or 97401 for the new list, and they will send it when 
completed. 


BUMPAS REVIEWS 


The Creative Atari, ed. by David Small, Sandy Small and George 
Blank (Creative Computing Press, 1983) $15.00 (?). 

The preface of this book tells you you have missed out on some of 
the best material ever published on the Atari 400/800/1200 computers 
if you are not already familiar with Creative Computing magazine. 
Of course, they are not going to tell you that without adding the 
reassurance this book will give you. Many articles from CC are 
reprinted here, along with new material. The preface states the 
philosophy: “learning by doing is the best way to learn.” 

The book describes itself as an "Atari Almanac". | agree. It is an 
almanac. Most of the articles and sections in the book are designed to 
help the reader get the most out of the Atari. There are tutorials, 
reviews, hardware projects, and many programs. The program listings 
are mostly demos, but there are some user programs, too. 

A couple of items are a bit dated — especially where the writer 
speculates upon new Atari computers such as the “1000”, or upon the 
prospected need for a do-it-yourself light pen project since $100 is too 
much to pay. But | have no complaints. 

The book is divided into 5 Parts and an Appendix, totalling nearly 
250 8.5 x 11” pages. Parts | and ІІ concern themselves with Graphics (a 
tutorial and tips). Here you will find several demo programs to show 
off some of the better characteristics of Atari graphics. 

Part 11 has over 100 pages and contains mostly hardware and 
software reviews. But here you will also find a half a dozen hardware 
projects. This section also contains several more demonstration 
programs on sound capabilities, discussions for programmers on 
string handling and other unique features of Atari BASIC, questions 
and answers, and a description about how to run a serial printer with 
the Atari. The review of the Mosaic 64k RAM card suggests 
possibilities for its use which almost impell me to go out and buy one 
now. 

Part ПІ also includes the review by Mike Dunn on BASIC A+. 

Part IV is a disk drive tutorial which will be of interest to most users 
who aren't sure just how the gadget works when it talks to our Atari. 
The last section contains 5 user program listings in its 30 pages. They 
have been chosen to demonstrate handling of various programming 
techniques. So these listings can be used as a learning tool in 
themselves. | can't comment on their quality as games yet, but there 
are at least two of them | plan to type in. 

Гуе already typed in the entire “Sound Library" from Part Ill. They 
are very good. These are little 1 or 2k subroutines making the sound of 
a doorbell, telephone, sirens, bombs, whistles, ticking clock, sawing 
wood. I’ve also typed in a program to be found on page 39 which editor 
Dave Small says will cause sales of Apples to drop wherever it's 
shown. Called “Sunset”, | agree it is a dramatic demonstration of 
graphics. 

We Atari users are finding an increasing number of valuable books to 
help us use the Atari to its best advantage. The Creative Atari is one 
book which will not gather dust on shelves. 

—Jim Bumpas 


BRYAN'S ARCADE 


Zaxxon is now out on disk and tape for the Atari 400/800. Zaxxon is 
available through Data-Soft Inc. for $39.95. 

Data-Soft's version of Zaxxon is probably the closest version ever 
released for the Atari home computer. 

If you like Zaxxon in the arcade you will definitly like this game. The 
graphics are almost exactly like the arcade version. The city and the 
Zaxxon robot are both excellent demonstrations of what the Atari 
computer is capable of doing. 

If you have both a disk drive and a tape recorder and you're going to 
get a copy of Zaxxon | highly recommend you get the disk version 
because it is much better than the casette version. For one thing the 
disk version of Zaxxon has by far much better graphics than the 
cassette version. The cassette version does not have little bombs 
coming up at you all over the city like the disk version has. The sound, 
color, animation, graphics and arcade action are very much like the 
arcade version. So if you like Zaxxon you should really enjoy Zaxxon 
on disk or casette by Data-Soft Inc. 

— Bryan Dunn 


NECROMANCER 


Necromancer is a exciting wizardry game full of adventure. The 
object of the game is to kill the evil wizard down in the gloomy grave 
yard. There are two screens to the game before you enter into the 
grave yard. 

What happens in the first screen? You are located in the middle of 
the page with Ogres on all sides of you trying to stomp down the army 
of trees you are planting. You move around your magic wand to control 
where you will deposit the seeds. 

On the second screen you enter into the vaults of the unknown. 
Your object is to kill as many spider larvae as possible to help you in 
the NECROMANCERS'’s lair. One thing making it very interesting is 
the Hands of Fate. They will pick you up and put you at the top of the 
screen. You better be quick because if a larvae turns into a spider you 
are almost surely doomed. 

The final task you have to complete is to clear the 
NECROMANCER's Lair. This level takes a lot of skill and quick 
thinking to complete. The object is to knock down the tomb stones so 
his spirit can't come back to life. 

The graphics on this game are super and the same goes for the 
music. | think this is a very exciting game and | highly recommend it to 
anyone. . 
by Synapse Software, 1(415)527-7751, 5221 Central Av., Richmond CA. : 


94804 
review by L. J. Knoll 





The Pilot’s Sketch Pad 


The Pilot’s Sketch Pad is a program letting you use a joystick to 
draw pictures on your screen. You can change ‘pen’ size and color as 
you draw. You can even save your sketch on disk or tape for later 
recall. This is an example of the type of program ATARI PILOT handles 
very nicely. PILOT may not be too hot for numerical calculus or 
accounts payable but it handles interactive graphic functions in an 
easy way. 


HOW TO USE THE PILOT’S SKETCH PAD 

First let’s take a look at how to use the program. Then, if you are 
interested, you can read on to see what makes it tick. When you first 
RUN the program you will see a graphic screen, blank except fora 
single flashing yellow dot. This dot is the ‘pen’. As you move the 
joystick the pen will leave a trace. If you push the trigger the pen turns 
into an eraser. By pressing the ‘R’, ‘B’, and ‘Y’ keys you can switch 
between the red, blue, and yellow pens. You can also switch between 
the three pen sizes by using the ‘1’, ‘2’, and ‘3’ keys. 

The rest of the program control functions (Save, Load, Clear, Quit) 
are ‘protected’ since they cause more final actions. To use these 
functions you must hold down the Control ‘CTRL’ key and then press 
the desired function key. Any of these functions can be used at any 
time. 

To CLEAR the screen - Press CTRL C. 

To SAVE the screen - Press CTRL S. The program will then prompt 
you to enter a file name. To save on tape simply type “Т? (don't type the 
"marks). To save on disk type 'D:filename'. For example, to save the 
sketch of a house on disk, type ‘D:HOUSE.PIX’. It takes about a minute 
to save the screen on disk. Saving on tape takes somewhat longer. 
Once the screen has been saved the program returns to the normal 
'sketch' mode. 

To LOAD the Screen - Press CTRL L. The program will ask for the 
file name (see SAVE option) Following the LOAD function the 
program returns to the normal 'sketch' mode. 

To QUIT - Press CTRL Q. 


HOW THE PROGRAM WORKS 

AS you can see from the listing, the Pilots Sketch Pad consists of a 
short ‘Main’ program (LINEs 60 - 210) and a collection of subroutines. 
This keeps the program structure simple and the program size small. 
The program has three features which may be of some interest: 
keyboard input, joystick handler, and save/load functions. These 
features all involve simple routines which you can easly use in your 
own programs. 

Keyboard Input 

The various control functions used in the program are all activated 
by single key strokes. When any key is pressed the Atari operating 
system puts the key's 'internal code' in location 764. The program 
uses the @B + (at byte) function to continually check to see when 
specific keys are depressed. For example, statment 70 sets + К equal 
to the code of the last key pressed, and statement 470 checks to see if 
it was the 'R' key. This is a very quick and easy way to get simple 
keyboard input. It avoids making the program stop and wait for input 
using the A: (ask) command. 

If you want to use this technique in your program you may need to 
find the internal codes for a few characters. The following short 
program will display the internal code of any key pressed. 

10 *START 
20 T: B764 
30 J:* START 
Joystick Handler 

Using the joystick in PILOT can sometimes be a bit inefficient 
unless you understand how the ATARI joystick registers work. Each 
joystick has a four bit register. The bits in this register correspond to 
the four primary joystick positions: right, left, down, and up. The 
following are some examples of the register readings for different 
stick positions: 

RLDU: 0001 - Up x 1000 - Right x 1001 - Right and Up x 0110 - Left 
and Down 

By dividing the register value by 1, 2, 4 or 8 and using the modulo 2 
(V22) operation we can check the individual bits of the register. For 
example, statement 660 checks the 'R' bit and adds the pen width 
(+P) to the horizontal position (+X). A check is made to insure the 
pen stays on the screen. 


Save/Load Functions 
Saving and reloading the screen is really quite easy. PILOT uses a 
graphics-7 type display list. The ATARI operating system uses 
locations 88 and 89 to point to the start of graphics-7 display list (see 
Statement 290). The display list is 3200 bytes long. The program uses 
the @ + (at number) function to read or write two bytes at a time using 
the designated file name. This technique may not be very fast (about 1 
minute for disk), but it is very simple and it is 100 percent PILOT. 
| hope you will enjoy the Pilot's Sketch Pad and find some of these 
routines useful in your own programs. 
—Jim A. Carr - Corvallis, OR 


TITAN LANDER 


by Dale Lutz, Alberta, Canada 

A long time ago in a country far, far away | saw an arcade game | 
wanted to write for my Atari 800. At the time | knew little of P/M 
graphics, priority and color registers, and nothing about machine 
language and collision registers. The reason | am telling you this is to 
give all of you beginners out there some tips and hope. 

The first version of Lander | did used GRAPHICS 5, and poorly 
designed, blocky, BASIC-moved P/M graphics. There was no way to 
win. Since ! knew nothing of collision registers there was no way, 
short of extensive coordinate checking, to detect crashes and 
landings. 

Then | purchased the Master Memory Map from Santa Cruz, bought 
De Re Atari, subscribed to Creative Computing and COMPUTE!, and 
became an ACE member. After reading many, many articles, | 
completely rewrote the original lander using single line P/M 
resolution, and Antic mode E (see Outpost Atari, March 1982 Creative 
Computing). The way ! did it, though, it would only work on cassette 
based 32-48K systems. | recently revised the program so it runs in 
GRAPHICS 7 on any 32K machine (24K without a disk). The final game, 
I’m sure you'll agree, is fairly good considering it is done completely in 
BASIC. 

A few notes on typing the game in: Type NEW, and then enter LINE 
1. It is imperative that line 1 is absolutely the first line entered, 
because string PM$ must be the first variable in the variable name 
table. (If after you get the thing typed in, and no ship appears on the 
screen, try LISTing it out, typing NEW, and then ENTERing it back in). 
This is because we modify its string storage pointers in LINE 20025 to 
point to the P/M memory area. This allows us fairly fast vertical 
positioning without dirtying our hands with machine language. What 
we do is first find the start of the variable table, calculate the offset of 
the array table, and POKE it in the right place (for a detailed 
explanation, read the last few pages of Outpost Atari in the January 
1982 Creative Computing). This is the same technique Mr. Brown used 
in Eggs. 

On playing the game: you'll need a joystick plugged into porti. 
Push whichever way you want thrust. The yellow bar graph is 
representative of your vertical velocity. Your ship will appear from out 
of the top left hand corner. When you land on one of the flat horizontal 
pads, this bar must be between the two green horizontal lines. The 
game requires quite a bit of skill, so be prepared to do some practice 
on the easy sights before attempting some of the harder pads. When 
the yellow bar graph turns red, you only have a little fuel left. When 
you're out of fuel, you can only watch as your ship plummet to its 
death. Should you successfully land, however, you be treated to some 
entertainment and, more importantly, some more fuel. 

Following is a line by line breakdown of the program: 

LINE # -- Functions 

1 - DIMs all the strings the program uses 

5 -- Jumps all over for program initialization 

10-55 - Main program loop (get stick, move ship, check for collisions, 
etc.) 

60-85 Program comes here to find out if landing was legal 
87-199 --Produce crash and wait for START to be pushed 
200-290 -- Routines for a successful landing 

310 -- Program goes here if you go out of the screen area 
7000-7999 -- Draws playfield 

8000-8999 -- Set up some equates 

20000-20999 -- Set up strings for P/M graphics 

21000-21010 - Clear out P/M display memory using strings 

The program itself is not the end-all. In order to keep motion close 
to smooth without using machine language, | have had to sacrifice 
constant display of fuel remaining. The entire display could be redone 
in Antic mode 4, keeping great resolution, lowering the memo 
requirement, and hastening program execution. 

In closing, never give up. Remember: Even without machine 
language you can still write some pretty decent action games, if you 
know a few BASIC tricks. We all need more FREE public-domain 
games! 
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9 R:xx $10 year xx 
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ТВОЯ 

10 В:ЯЖ PILOT'S SKETCH PAD 4% 
20 R: 

30 R: Jie A. Carr 1-Мау-83 Corvall 
is OR 

40 БВ: eset eset reteset st ЖЖЖ 

90 U:XCLEAR 

60 XMAIN [Start of main programaj 
70 C:#K=@B764 [Check for key pres 
sed] 

80 C:@B764=255 [Reset keyboard in 
putJ 

90 UtdKz146):XCLEAR Гсїг1 C] 

100 U(4K2190) : XSAVE [ctrl 54 

110 Ut$K2128) : XLO&D Гсігі LI 

120 E{4#K=175): [ctrl QJ 

130 U:xJUSTICK [Track joy stick] 
140 U:XGETCOLOR 

150 U:XPENSIZE 

140 U:XPLOT 

170 GR:PEN ERASE 

180 U:XPLOT 

190 0(318:0) :XGETCOLOP [Erase if 
trig] 

200 U:XPLOT 

210 J:XMAIN 


х 


230 ЖЅАЧЕ [Save or load picture b 
yl 

240 XLOAD [accessing display area 
23 
2850 Т: 


ENTER FILE NAME 
260 T: DISK CASSETTE 
270 T: D: filename C: 


280 A: $FILENAME 

890 С.Ну-256ХӨВ89 49688 [display 
areal 

300 C:#£=#A+3200 

310 ЖМЕХТВҮТЕ 

320 URITE(4K-190):$FILENAME @#A 
330 READ (#K=128) : $FILENAME @#A 
340 C:#A=#At2 

350 J(#AC#E) : ЖМЕХТВҮТЕ 

360 CLOSE: $F ILENAME 

370 U:XINSTRUCTIONS 

380 E: 


400 XPLOT CPut dot at X,Y] 

410 GR:GOTO #X,#Y Csmalld 

420 GR(&POZ21:GOTO #X,#Y+1;COTO 4 
X11,$Y41;GOTO #X+1,#Y DmediumJ 
430 GR(#P=3):TURNTO 90,60 1;2(TUR 
М -90;DPAW 2) Llargel 

440 E: 


460 XGETCOLOR [Set color to match 
key] 

470 C(#K=40}:#C=1 CR=red] 

480 C(#K=43) :#C=2 CY=yellow] 

490 C(#K=21) :#C=3 LB-bluel 

500 GR(4Cz1):PEN PED 

510 GR(#C=2): PEN YELLOW 

520 GR(#C=3) : PEN BLUE 

930 E: 


550 XPENSIZE (Set pen size to mat 
ch key] 

560 C(#K=31):#P=1 Ci=sealld 

570 C(#K=30):#P=2 Ce=aediua 

580 С(4К-26) :#P=3 [3-largel 

390 E: 


t cr — ees 


610 XJSTICK [Joystick sets XY pos 
] 

620 C:$J-5J0 

630 C($Y€ 47): #¥=#Y tGRUN2 DEP) 


640 Cl#Y>-31) EY-4Y —( (#U/2\2) REP 
) 

650 Ci#X>-79) :#X=8X -{{#J/4\2) KEP 
) 

660 CiSX€ 79): #Х=#Х 44 (#/8\2) KEP 
) 

670 E: 

20008 2 тэлтсҮтүтгтгэгтгэт”тгэтэ 


690 XCLEAR [Display key codes) 
700 GR:CLEAR 
710 XINSTRUCTIONS 


720 T: COLOR LINE SIZE CON 
TROL KEYS 

730 T:R. RED 1. SMALL 5. SA 
VE Q. QUIT 

740 T:B. BLUE 2. MEDIUM L. LO 
AD 

750 T:Y. YELLOW 3. LARGE С. CL 
EAR\ 


o 


760 C 
770 С 


790 Е 


10 Т: 
20 Т: 
30 В: 
40 R:B 
59 В: 
60 Т: 


:2Р-1 [Initialization] 
:ЁС-2 


. 780 C:8B764-255 


THE PILOT'S SKETCH PAD 
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80 T: 
90 T:T 
100 T: 
110 T 
120 T 
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‘picture on your screen. 
‘control of both the pen size and 
:the color of the ink. 
‘pictures сап be saved on either 


he Pilot's Sketch pad is a program 
which allows you to create color 
pictures on your ATARI computer. 
You use the Joystick to guide 

an imaginary pen which draws the 
You have 


Completed 


disk or cassette. Once saved a 


‘picture can later be recalled for 
:display and further changes. 


:The program is written in ATARI 


PILOT. 
ХРАСЕ 
HOW DO YOU GET STARTED? 


To get started with the Pilot's 
Sketch Pad you must first plug a 
joystick into port nusber one. 


The next step is to load the 

the program. If you are using a 
disk the program name is SKETCH. 
When the progran is loaded, type 
RUN. 


The next thing you should see is a 
small yellow dot flashing in the 
center of your screen. If not, 
maybe it would be a good day to go 
outside and play in the rain. 
ЖРАСЕ 

HOW DO I DRAW A PICTURE? 


GOTO PAGE 9 


GAME OF THE MONTH! ! 


TITAN LANDER 
by Dale Lutz 
Alberta, Canada 


1 DIM РМ$ (2048) ,LAN$ (23) ,118(19), 
RT$(19) ,UPT$(16) ,BL$(30) ,U$ (45) 
2 REM TITAN LANDER REV. 17 
(GRAPHICS 7 VERSION) 
3 REM BY DALE LUTZ 
REQUIRES AT LEAST 32K 
WITH DOS (24K WITHOUT! 
4 REM LINE 1 MUST BE THE FIRST LI 
NE ENTERED 
3 POKE 559,0:GO5UB 20000:60508 80 
00:60508 7000:РОКЕ 710,0:POKE 559 
62 :F=200 : 5C=0 : H5=0 
6 REM x1xooroolorororooooroooorokoororor 
7 REM Ж ACE NEWSLETTER x 
8 REM x 3662 Vine Maple Dr. Ж 
9 REM * Eugene, Or 97405 Ж 
Ж $i0ur x 

ОООО 
10 Ү=15:Х=30:ХТ=1:ҮТ=-0.125:РОКЕ 
99278 ,255: TRAP 300:РОКЕ 711,22 
20 &-STICK(0) : PHS (PY1+Y)=BL$ : PMS ( 
PY2+Y )::81.8: PM$(PYStY)=BLS:IF Y(O 
THEN 300 
22 IF F(50 THEN POKE 711, 48 
23 IF F«0 THEN A=15 
25 IF A=15 OR 4-13 THEN SOUND 0,0 
,0,0:60TO 47 
30 IF A=14 THEN ҮТ-ҮТ40.125:РОКЕ 
HP3,X:PMS(LPYStYY-UPTS$: SOUND 0.121 
,0,10:F-F-2:GOTO 47 
33 IF А=6 THEN &z7:YTzYTt0.125:PO 
KE НРЗ X:PMS(PYS+Y)=UPT$: SOUND 0, 
121,0,10:F-F-2:GOTO 45 
34 IF A=10 THEN A=11:YT=YT+0.125: 
POKE HP3,X:PMS(PYStY )-UPT$ : SOUND 
0,121,0,10:Ғ-Ғ-2 
40 IF A=11 OR A=9 THEN ХТ-ХТ-0. 06 
25:РОКЕ HP2 , Xt8:PM${(PY2t+Y)=LT$ : 50 
UND 0,121,0,10:F-F-2:GO0TO 47 
45 IF 4-7 OR A=5 THEN XT-XTt0.062 
3:POKE HP1,X-8:PM$(PY1TY)-RT$ : 500 
ND 0,121,0,10:F-F-2 
47 X=X+XT: Y=Y-YT : YT=YT-0 . 03125: PM 
%(888-ҮТЖ10)-/% 
50 POKE HPO, X:PM$(Y+PY0)=LANS$ 
95 IF PEEK(53252) O1 THEN 20 
60 IF X068 AND X477 AND (1?2171 A 
ND Ү(-175) THEN М-1:6010 200 


65 IF 0095 AND Х‹102 AND (0-70 A 

ND Y(275) THEN M=2:GOTO 200 

70 IF X)130 AND X«135 AND (Y2-90 

AND Ү‹=96) THEN M=3:GOTO 200 

75 IF X)147 AND X<153 AND (Y)=125 
.5 AND Y(2133) THEN M=4:GOTO 200 

80 IF 30167 AND X<184 AND (Y)=170 
AND Ү‹=175) THEN M=5:GOTO 200 

85 IF X)181 AND X«186 AND (2270 

AND Y(=75) THEN M-6:GOTO 200 

87 GOSUB 21000 

90 PM$(Y+PYO)=BL$:POKE 704,14:FOR 
0-1 TO 14:PM$(Y+D+PY0)=CHR$ (RND( 

01884740) : SOUND 0,100,0,D:NEXT D 
100 FOR 0-1 TO 14:PM${Y+D+PY0)=CH 
R$(0}:SOUND 0,0Ж16,0,14-0:МЕХТ D: 
SQUND 0,0,0,0 

110 IF F(=0 THEN 7 "YOU RAN HER O 
UT OF FUEL!!":GOTO 114 

112 7 "CRASHED!" 

114 7 "YOUR SCORE WAS ";5C:7 “HIG 
HSCORE ",Н5:2 "PUSH START FOR А М 
EM GAME";:REM START IN INVERSE 
115 IF PEEK(53279) 06 THEN 115 
120 5C=0:F=200:GOTO 320 

200 7 "LANDED" 

210 IF ҮТ(0 AND ҮТ)-1.1 THEN ON M 
GOTO 220,230,240, 250,240,270 

215 GOTO 90:REM CRASH 


220 RESTORE 287 :Е=Е+100:С0Т0 280 
230 F=F4125:RESTORE 288:GOTO 280 
240 PM${PYO+Y)=LANS : PM$(PYS+Y )=UP 
T$:YzY-1:IF Ү(-10 THEN F=F+125:G0 
то 283 
245 SOUND 0,121,0,10:GOTO 240 
250 F=F+200:RESTORE 289:6070 280 
260 F=FH150:RESTORE 290:GOTO 280 
270 RESTORE 291:F=F+100:GOTO 280 
280 READ P,X:IF P)0 THEN SOUND 0, 
P,10,10:50UND 1,P-1,10,10:FDR 041 
ТО X:NEXT D:SOUND 0,0,0,0: 5QUND 
1,0,0,0:GOTO 280 
283 SC=SCHF:IF SC)HS THEN HS=SC 
285 SOUND 0,0,0,0:50UND 1,0,0,0:7 


CHR$ (298); "FUEL: ";F:? "SCORE: 
",50:7 "HIGHSCORE: ";Н5;:ҒОВ 0=1 
TO 800:NEXT D 

286 GOTO 320 


287 DATA 144,55,128,55,121 55,128 
55,144,100, 121,100,182, 150, 1,55, 
162,75, 91,125 96,75, 95,125 ,-1,0 
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288 DATA 182,100,162,50,153,50,18 
2,75,1,150,182,100,142,50,153,50, 
182,75,1,15,128,150,-1,0 

289 DATA 130,30,100,30,80,30,65,7 
0,80,30,65,100,-1,0 

290 DATA 96,75,85,75,108,75,216,7 
5 144,200,-1,0 

291 DATA 121,40,108,40,96,40,108, 
40,121,40,108,40,96,78,121,90,121 
,170,-1,-1 | 

300 SOUND 0,0,0,0:7 CHR$(125);"QU 
T OF 5КҮ!!" 

310 FOR 0-1 TO 200:МЕХТ 0:7 "PUSH 
START FOR A NEW САМЕ":С010 115:R 

EM START IN INVERSE 

320 PM$(1)-CHR$(0):PM$(2048) -CHR$ 
(0)1:PM$(2)-PM$:GOSUB 20040:GOTO 1 

0 

7000 RESTORE 7000:REM DRAW PLAYFI 

ELD 

7002 GRAPHICS 7:POKE 752,1:POKE 5 

59.0 

7005 COLOR 1:PLOT 0,92/2:DRAWTO 1 
39/2 

7010 TRAP 7020:READ X,Y:DRAWTO X, 

Ү/2+0.5:60Т0 7010 

7020 DATA 2,48,4,56,8,60,12,64,18 
72,20 ,76,18,988, 16,104, 22 112,25, 

120, 27,131 ,22,144,16 

7025 DATA 152,14,157,36,157, 42,14 

4,44,132,46,120,50,108 

7030 DATA 48,88,50,80,46,64,48,56 

,60,56,78,48,80,74,84,76,94,76,95 
,46,100,54,105,73,105,94 

7035 DATA 97,96,95,102,101,112,11 

1,112,117,136,112,156,121,157,144 

7040 DATA 157,143,144,134,122,130 
,98,136,72,140,67,134,54,144,56,1 

50 45,148,37,151,32,159,36 END 

7050 COLOR 2:PLOT 149,45:DRAWTO 1 

59 45:PLOT 149,50:DRAWTO 159,50 

7999 RETURN 

8000 PY1=1284:PY0=1024:PY2=1539:P 

ҮЗ-1805:НРО-53248:НР1-53249:НР2-5 

Э250:НРЗ-53251 

8010 POKE 53252,199:POKE 53253,19 

9:POKE 53254,199:РОКЕ 53255,199 

8999 RETURN 

20000 REM SET UP THE STRINGS ТОН 

ANDLE PM MOVING 


20010 POKE 704,12:POKE 705,54: 1=P 
EEK (106)-32:POKE 54279, 1:POKE 532 
77,3: AT=PEEK (140) +а56ЖРЕЕК (141) :Р 
OKE 623,24 

20020 VT=PEEK(134)+256KPEEK (133) : 
POKE 706,54:РОКЕ 707,56:РОКЕ 708, 
10:POKE 53260,3:POKE 711,22 

20025 OFFS=1k256-AT :HI=INT(OFF5/2 
54):LO-OFF5-HIX256:POKE 9Т%2,10:Р 
ОКЕ UT43,HI 

20030 PM$(1)=CHR$(0) :PM${2048)=CH 
R$10) : PH$(2)-PM$ 

20032 RESTORE 20085:FOR A=1 TO 24 
-READ I:LANS(A,A)=CHRS(I) :NEXT A 
20034 RESTORE 20090:FOR A=1 TO 19 
-READ I:RT$(A, A)-CHRS(IDP NEXT А 
20035 RESTORE 20095:FOR A=1 TO 19 
:READ I:LT$(A, A) CHP$11) : NEXT A 
20040 U$(1)2"7":U$(43)z"7":U$(2)- 
V$:FOR A=1 TO 5:U$(A, A) -CHR$(O):N 
EXT A 

20042 RESTORE 20100:FOR й-1 TO 15 
-READ I:UPT$(A,A)=CHRS(I) :МЕХТ А 
20045 BLS(1)-CHR$(0) :BL$(30)=CHRS$ 
(0) :BL$(2)=BL$ 

20050 PM$(916)=V$:POKE 752,1 
20060 7 CHR$(125) ;CHR$(30) ; CHR$(3 
0) ;CHR$(27) ;CHR$(28) ;CHR$(27) ; CHR 
8129), 

20070 RETURN 

20085 DATA 0,0,0,0,0,24,36,36,66, 
66, 66,129,129, 129,129, 66,36,90,12 
9,0,0,0,0,0 

20090 DATA 0,0,0,0,0,8,4,2,9,7,9, 
2,4,8,0,0,0,0,0 

20095 DATA 0,0,0,0,0,16,32, 64,224 
144,224, 64,32,16,0,0,0,0,0 

20100 DATA 0,0,0,0,0,24,36, 40,153 
,165,0,0,0,0,0 

21000 PM$I1)-CHR$ (0) : PH$ (2048) CH 
В5(0) : PM$ (2) -PM$ 

21010 РМК(916):44:РОКЕ 752,1:RETU 
RN 


YOUR PROGRAM, 


REVIEW, 


ARTICLE, он 


COMPUTER ART 


COULD BE HERE! ! ! 


JUNE MEETING 
TUESDAY (1) 


june 7, 1983 at 7.30 pm. In the Cafeteria of South 
Eugene H5. Entrance is through the rear. look for the 
signs! ' 


This meeting will be video-taped by a crew from 
ATARI. The tape will be used to create a presentation to 
show to other users’ groups as а part of the Atari Users‘ 
Group support program. 


Stan Ockers 
Listings 


1 REM ЗЭХЭХ 

2 REM ЖЖ Ace Newsletter xx 

3 REM xk 3662 Vine Maple ЖЖ 

4 REM ЭЖ Eugene, Or 97405 ЖЖ 

9 REM ЖЖ $10 yr xx 

6 REM ЖЖ June 1983 xx 

7 REM sono OOOO okk 

10 REM ЖЖЖЖЖЭЖЖЭЖИЖЖЖЖЖЖЖИЛЖЖ 

20 REM XX Scrolling City ЖЖ 

c9 REM жж Background xx 

30 REM ЖЖ Stan Ockers xx 

40 REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЭХЖЖ 

90 GRAPHICS 7:RESTORE 92:FOR J=70 
8 TO 712:READ A:POKE J,A:NEXT J 
92 DATA 32,14,86 84,8 

100 GOSUB 1010:GOSUB 2000:GO5UB 2 
200:GOSUB 2300:G05UB 2100:POKE 75 
6 ,CSPAGE 

115 A-USR(1580; 

129 GOTO 120 

1000 REM Ж change character set X 
1010 DIM MC5$(42):RESTORE 1020:Е0 
R J=1 TO 42:READ A:MCS$(J, JI ZCHR$ 
(A) :NEXT J 

1020 DATA 104,169,0,133,203,133,2 
05,169 224.133 204,165,106 ,546,233 
,81,133,106,24 

1030 DATA 105,1,133,206, 142 4,160 
,9,177,203,145,205,200,208,249 23 
0,204 2350 ,206 202 208,242 96 

1040 A-USR(IADRIMCS$)) :С5РАСЕ-РЕЕК 
(106) 41: C5=256%C5PAGE : SCRSTzCS110 

24 

1050 RESTORE 1040:FOR J-C51776 ТО 
C54968:READ A:POKE J,A:NEXT J:RE 

TURN. 

1060 DATA 255,219,219,219,219,219 
,819,255,150,150,159,170,150,159, 
150,150,85,125,125,125,125,125,12 

3,85 


1070 DATA 85,105,105,105,105,105, 


105,85,255,215,215,125,125,215,21 
5,255,170,251,170,191,170,251,170 
,191 

1080 DATA 169,165,101,101,170,105 
,89,90,0,0,0,0,0,0,255,255,235,23 
5,255 235 235,255 235 235 || 


OCKERS 


1090 DATA 85,101, 101,101, 101,101, 
101,85 ,255, 215 255 215,255, 215,25 
5,215 219 182,109,219 182,109,219 
,118 
1999 REM Ж Create New Display Lis 
tx 
2000 FOR J-1539 TO 1572 STEP 3:P0 
KE J,85:NEXT J 
2002 DIM BHI(12!,BLO(12! 
2003 FOR ісі TO 12:Bs3CR3T4256XKJ- 
46: BHI( J) 3SINT(B/256) :BLO{J)=B-256 
XBHI(J):NEXT J 
2005 FOR J=1536 TO 1538:POKE J,11 
2:МЕХТ J:K=1540:FOR J=1 TO 12:POK 
E K,BLO(J):POKE KH, BHI(J) :K=Kt3: 
NEXT J 
2010 POKE 1575,65:POKE 1576 ,0:POK 
E 1577,6:Р0КЕ 540,0:POKE 561,6:RE 
TURN 
2099 REM Ж Init. Page 6 Values X 
2100 RESTORE 2102:FOR J& 1464 TO 1 
667:READ A:POKE J,A:NEXT J 
2102 DATA 1,1,2,0 
2104 REM Ж UBI Scrolling Routine 
Ж 
2105 DIM UBIS$i159):RESTORE 2108:F 
OR Ј=1 TO 159:READ А: VBI${J,J)=CH 
R$(A):NEXT J 
2107 A=ADR(VBI$) :HI-INT(A/256) :LO 
-A-256XHI:POKE 1582,L0:POKE 1584, 
HI:RETURN 
2108 DATA 173,128,4,240,93 
2109 DATA 169,0,141,129, 6,173,120 
2,72, 41,4,208, 3,298,129, 4,104, 41 
,8,808,3,206,129,6 
2110 DATA 173,129,6,16,9,173,130, 
6,201,1,144,57,176,7,173,130,6,20 
1,216,176,48 
2111 DATA 173,129,6,240,43,16,15, 
206,131,6,16,30,169,3,141,131,6,1 
41,4,212,208,29,238,131,6,173,131 
4 
2112 DATA 201,4,144,10,169,0,141, 
131,6,141,4,212 240,9,173,131,6,1 
41,4,212,24,144,55 
2120 DATA 216,162,0,173,129,6,48, 
16,189,4,6,56 
2130 DATA 233,1,157,4,6,176,19,22 
2,5,6,144,14 
2140 DATA 189,4,6,24,105,1,157,4, 
6,144,3,254,5,6, 292,232 238,224,3 
7,144,214 
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2145 DATA 24,173,130,6,109,129,6, 
141,130,6,76,98,228 

2199 REM Ж Insert UBI Routine X 
2200 RESTORE 2210:FOR J=1580 TO 1 
389:READ А:РОКЕ J,A:NEXT J:RETURN 


2210 DATA 104,150,132,162,6,169,7 
,76,92,828 

2299 REM Ж Draw Buildings Ж 

2300. RESTORE 2360 : B=SCRST 

2310 READ WAL ROW, COL ,WID: IF МА = 
0 THEN 2400 

2320 FOR J-ROW TO 12:START=Bt256% 
JH COL 

2330 FOR К-1 TO WID:POKE START+K, 
WAL :NEXT K 

2340 NEXT J:GOTO 2310 

2360 DATA 102,1,0,2,103,11,2,6,97 
,9,8,8,98,8,14,6,102,11,20,6,105, 
3,30,8,100,5,26,6,101,8,34,4,99,6 
5076 

2370 DATA 107,4, 60, 6,108,7, 64, 6,9 
7,3,88,8,103,10,68,18,106,7,90,4, 
107,5,94,6,100,8,106,8,105,10,96, 
12 

2380 DATA 98,6,114,6,102,12,120,6 
,106,4,126,8,101,8,134,4,230,11,1 
48,64,99,8,150,12,233,9,164,6,97, 
4,170,6 

8390 DATA 100,9,178,8,99,9,194,6, 
98,10,188,8,107,10,202,8,105,7,21 
2,16,97,10,228 8,106,8,240,14 0,0 
,0,0 

2400 RESTORE 2460 

2410 READ ROW,COL,WID:IF ROW=0 TH 
EN 2500 

2420 START=SCRST+2546*ROW+COL +1 : РО 
R J=START TO START+WID-1:POKE J,2 
32:NEXT J | 

2430 GOTO 2410 

2460 DATA 10,2,6,10,20,6,10, 38,64, 
9,76,6,76,9,6,4,94,6,11,120,6,10, 
138,6,8,164,6,8,194,6,11,234,6,0, 
0,0 

2500 RESTORE 2560 

2510 READ ROW, COL WID:IF ROW=0 TH 
EN RETURN 

2520 STARTZSCRSTteS6XROWFCOL T1 : FO 
R J=START TO STARTHWID-1:POKE 4,1 
01:NEXT J 

2330 GOTO 2510 

2560 DATA 8,38,8,11,38,16,6,76,6, 
8,138,6,11,138,10,0,0,0 


PILOT'S SKETCHPAD con't 


450 T:Try moving the joystick control in 
440 T:all directions. You will see that 
470 T:the little dot moves in the direction 


10; xxlokoonpooooooooioporoorororpoooroioiooo 
20 ; ЖЖ HORIZONTAL SCROLL ROUTINE ЖЖ 





Mo 


30 ; Жж 5.0. "9"83 xx 
tick. Also, as the 
40 ; КОО ао eee 
490 T:dot moves it leaves a trail. 
0000 90 Үс $0680 500 Т: 
0680 60 НЕМАВ k= жн ; (1664) zero, not enabled цал 
| 510 T:Next press the "2" key on the 
0681 70 DIR x= ҰН ; (16465) direction flag 
z -- 520 T:keyboard. The little yellow dot 
068e 80 Р05 x= Ж ; {1666) position of screen center А 
: 930 T:will change to a medium sized dct. 
0683 90 HSHAD x= ін ; (1667) fine scroll shadow 1 
om 340 T:This dot will leave a wider trail 
0025 0100 LASTX = $25 ; limit to scrolled lines : кеп 
v 990 T:as you control its position with 
0001 0110 LOLIM - 1 ; lowest screen position SH 
: ааа 960 T:the joystick. Next press the "3 
0008 0120 HILIM = 216 ; highest screen position 
. : 370 T:key. The dot will change to a 
0278 0130 STICKO = $278 ; joystick register : 
: 580 T:large dot and leave a wide trail. 
0604 0140 LOBYTE = $0604 ; first line screen data : 
i 990 T:To get back to a small or medium 
D404 0150 HSCROL = $0404 ; fine scroll register ae y а 
4 : 600 T:size dot just press "1" or "а". 
E462 0160 XITUBI - $E 462 ; exit vertical blank 
610 U:XPAGE 
"эй m — 620 T:HOW DO I ERASE? 
0000 А08006 0180 LDA НЕМАВ ; Is horiz. scroll enabled? 630 7. l 
0003 F050 0190 BEG QUTI ; No i 
: bably have quite a mess 
0005 A900 0200 LDA #0 ; Update direction of scroll гуниг иг З 
650 T:on your screen. Try pressing the 
0007 808106 0210 STA DIR ; . 
. ; 660 T:joystick trigger. The dot will 
000A AD7802 0220 LDA STICKO ; Using joystick zero 
670 T:continue to flash, but as you aove 
poe хэд xis Ч. нийлэн 680 T:the dot around with the joystick 
B 026 oati о отат 690 Т:10 бй of drawing, it кесе) 
0010 0003 0250 BNE OVERI ; No, not player left 70i " 
0012 ЕЕВ106 0260 INC DIR ; DIR=1 bkgd moves right ; 
F CHAN 7 
0015 68 0270 OVER1 PLA ; Recover stick value ” bcn TE 2. 
0016 2908 0280 AND 48 ; Bit three zero? E а. 
0018 D003 0290 BNE OVER2 ; No, not player right ЙЫШ ықы елінін 
740 T:tired of yellow. Try pressing the 
001A CE8106 0300 DEC DIR ; DIR=255 bkgd moves left 
= 750 T:"R" key. The dot will change to 
0010 AD8106 0310 OVER2 LDA DIR ; Check for 118115 
760 T:red. The "B" key will change the 
= 0080 1009 0320 ВР. RICK ; Not left bkgd 27, 
716 T:dot to blue and the "Y" key will 
0022 А0820% 0330 LDA POS ; bkgd further left? Jü0 Тасқа» ер бостық  Ynüscinedse 
На v silii | 790 dran: three ke : 81 ан time to 
0027 9039 0350 ажы cl aac 800 M Dar ellow pe and blue 
0029 B007 0360 BCS FSCROL | ; O.K. skip right check E ааа | 
: i 2 ` i 
0088 А0820 0370 RTCK LDA POS ; bkgd further right’ 820 T:Now is is up to you to draw a picture. 
002E C908 9380 СМР  1HILIM 830 U: $PACE 
0030 B030 0390 BCS OUTI ; No more room 
UE A PICTURE? 
0032 808106 0400 FSCROL LDA DIR ; Fine scrolling - kig шалаа: 
0035 FOEB 0410 жұту 2427: Мин 860 T:To save your picture, Simply press 
0037 100F 0420 BPL BKGRT ^; Must be right scroll Paik a | 
: 870 T:"CTRL 5". That is, while holding the 
0039 CEB306 0430 DEC HSHAD ; One fine scroll left 880 T:"CTRL" key, press the "5" key. Тһе 
003C 101E 0440 BPL NOFULL ; Not ready for full char. 990 т. Bune. mG pe ond by Қ" үйе Жі 
003E A903 0450 LDA #$03 ; Full scroll, reset fine scroll 900 Mor EA I MEM eed 
9 00 шайына 910 т: : disk ee his like 
0043 800404 0470 STA HSCROL ps | - | 
А 920 T:"D:HOUSE.PIX" (if your picture is 
0046 0010 0480 BNE FULL ; Forced jump 930 T:a house). To save your picture on 
0048 ЕЕ8306 0490 BKGRT INC  HSHAD ; One fine scroll right | l Ч бсн 
= 940 T:cassette, enter "C:". The computer 
0048 А08306 0500 LDA HSHAD ; Ready for full char. scroll? 950 T:will beep: tite tu remind. you to 
004 C904 0510 CMP 4804 in ғ 


960 T:set up the recorder to record. 
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OCKERS’ PILOT'S SKETCHPAD con't- 


970 T: 
0050 900A 0520 BCC NOFULL ; No, not yet 980 T:It takes about a minute to save 
0052 4900 0530 LDA 4900 ; Reset fine scroll 990 T:a picture on disk. It takes 
0054 8D8306 0540 STA  HSHAD 1000 T:several minutes to save on tape. 
0057 800404 0550 STA HSCROL 1010 T:When the picture has been saved, 
0054 Ғ009 0540 BEQ FULL ; Forced цар 1020 T:the program returns to the flashing 
005C 808306 0570 NOFULL LDA  HSHAD ; Update fine scroll register 1030 T:dot. 
005Ғ 800404 0580 STA HSCROL 1040 U:*PAGE 
0062 18 0590 ӨЛІ CLC ; Forced jump to exit 1050 T:HOM DO I RELOAD A SAVED PICTURE? 
0083 9037 2600 BCC ал 1060 T: 
0065 08 0610 FULL CLD ; Full character scroll 1070 T:To load a saved picture type 
0066 A200 0620 LDX %%00 ; Index on first line 1080 T:"CTRL L". The program will again 
0068 А08106 0630 LOOP LDA DIR ; Must check direction 1090 T:ask for the file name. 
004B 3010 0640 BMI LEFT ; Bkgd moves left 1100 T:If the picture was saved on disk type 
0060 В00406 0650 LDA LOBYTE,X ; Bkgd right, pointer back one 1110 T:"D:filename" where "filename" is 
0070 38 0660 SEC 1120 T:is the name you used when you saved 
0071 E901 0470 SEC 3801 1130 T:the picture. If the picture was 
0073 9D0404 0480 STA LOBYTE,X 1140 T:saved on tape, type "С:". 
0076 B013 0690 BCS NEXT ; No page crossing 1150 T:Loading pictures is a bit faster 
0078 DE0S04 0700 DEC LOBYTE+1,X ; Down a page 1160 T:saving, but not much. 
007B 900E 0710 BCC NEXT ; Forced jump 1170 T: 
0070 В00406 0720 LEFT LDA LOBYTE,X ; Bkgd left, pointer up one 1180 T:If you want to start a new picture 
0080 18 0730 ас 1190 T:you can clear the entire screen by 
0081 6901 0740 ADC 8601 1200 T:pressing "CTRL C". 
0083 900406 0750 STA LOBYTE,X 1210 T: 
0086 9003 0760 BCC NEXT ; No page crossing 1220 T:WHAT DO I DO WHEN I AM ALL DONE? 
0088 FE0506 0770 INC LOBYTE+1,X ; Up a page 1230 T: 
0088 ЕВ 0780 NEXT ІМ ; Point to next line 1240 T:When you are ready tc quit press 
008C E8 0790 INX | 1950 T:"CTRL Q". 
0080 ЕВ 0800 INX 1260 E:CThats all folks] 
008E E025 0810 CPX ФАТХ ; Is this the last line? 1270 ЖРАСЕ CPage control routine] 
0090 9006 0820 ВСС LOOP ; No do another 1280 T: 
0092 18 0830 CLC ; Update screen position 1290 T:Press RETURN to continue. \ 
0093 AD8206 0840 LDA POS 1300 A: 
0094 608106 0850 ADC DIR ; Using direction value 1310 GR:QUIT 
0099 808206 0860 STA POS 1320 E: 
009С 4C&2E4 0870 OUT JUMP XITVBI ; Back to Atari UBI 

0680 HENAB 0681 DIR 0682 POS 0683 HSHAD 

=0025 LASTX =0001 LOLIM -00D8 HILIM =0278 STICKO 
20604 LOBYTE zD404 HSCROL =E442 XITUBI 0062 QUTI 

0015 ОУЕР1 0010 OVER? 0028 RTCK 0032 FSCROL 

0048 BKGRT 005C NOFULL 0065 FULL 009C OUT 

0068 LOOP 007D LEFT 008B NEXT 
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10000 
10019 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10119 


10120 
10130 
10140 
10150 
10160 
10170 
10189 
10190 
10200 
10210 
19220 
10230 
10240 
30000 
30010 
30020 
30030 
30040 
,32 
30050 
43,2 
30060 
106 
30070 
3,228 


REM 
REM 


REM 
REM 
REM 
REM 
REN 
REM 
REM 
REM 
REM 
REM 
PEM 
REN 


-- BLINKING CURSOR -- 


-- SUBROUTINE -— 


(ее t c өзее GUI QUUD «ая ажээ SUES өсе» 4544 ең! EEE GUST came тээх ээрээ stue GEER LENE еее «ее am 


--TO LOAD MACHINE LANG. 
--SIMPLY HAVE A GOSUB 
--30000 IN YOUR PROGRAM 


--10 BLINK-BLINK-BLINK: 
--10 START THE CURSOR 
--BLINKING, SIMPLY PUT 
--THE FOLLOWING STATE- 
--MENT IN YOUR PROGRAM: 
-- CURSOR-USP (1534) ' 
--AND THE CURSOR WILL 
—-BLINK-BLINK-BLINK! 


о oome pemn atoe oent оме meos oone coop aren mres aama Dea OOO mS gadt абло omre авад өөлд CHES өрөөний, 


RESTORE 30040 


FOR 


1:1536 TO 1567:READ A 


POKE I,A:NEXT I 
RETURN 
DATA 104,162,5,160,11,169,6 


DATA 92,828,96,165,20,110,2 


DATA 110,243,2,106,106,106, 


DATA 46,243,2,46,243,2,76,9 


PROGRAMS EY 
SHANE ROLIN 


100 REM ЖЭЭЭЖЭЖЖЭХЖЭЭХЖЭЖЖЖЭЖХЭЭХ 


110 REM ЖЖ xx 
120 REM ЖЖ RAMMER xx 
130 REM ЖЖ RAM TESTER xx 
140 REM жж by Shane Rolin xx 
150 REM ЖЖ VERSION 2.0 xx 


160 REM x* xx 
170 REM ЖЖЖЖЖИЖЖЖЭЭЭЖЭЖЖЭЭЖЖЖЭЖЖЖ 
1000 POKE 710,3 

1010 01-1:02-01101:02552255: 8256: 
9255101 

1020 FOR GA=1536 TO 1576:READ ӨВ: 
POKE QA,QB:NEXT QA 

1030 DATA 104,169,0,160,0,24,145, 
203,209 ,203,208,18,105,1,208,246, 
200 208, 242 , 230 , 204,146,204 , 2282 
06 

1040 DATA 208 234,133,208, 96,133, 
207,177 ,203 133,209 ,149,1, 133,208 
,96 

1050 Qa-PEEK(15)X9256:GB-PEEK 1742 
)xg256:IF РЕЕК114) OQ0 THEN QA=QA 
+0256 

1060 7 CHR$(125):POSITION 15,5:7 
"DAMMER":POSITION 13,4:7 “RAM TES 
TER" 

1070 7 :? "MEMORY BOUNDS ARE" 
1080 7 "LOW-";QA;" "; "НІСНЕ" ; В 
1090 7 "ENTER LOW ADDRESS(RETURN) 
".? "AND ENTER HIGH ADDRESS(RETUR 
№" 

1100 7 "THE ADDRESSES MUST ВЕ АТ 
LEAST 257 ":7 "BYTES АРАВТ. ":7 
1110 TRAP 1110:7 "LOW=";: INPUT OL 
Q:IF Q@LO<GA OR 010288 THEN 1110 
1120 TRAP 1120:7 "HIGH="; : INPUT Ө 
HI: IF QHI>@B OR QHI<QA OR GHI-QLO 
(0256 THEN 1120 

1130 POKE 752,1:POKE 205,00 : POKE 
206, INT(QHI/Q2546) 

1140 TRAP 32747:POKE 203,80: РОКЕ 
204, INT(QLO/0256) 

1150 POKE 744,0255 

1160 POKE 764, 9255: QC=USR{ 1534) 
1170 IF PEEK(208)=Q0 THEN 1250 
1180 7 " BAD LOCATION AT "; (PEEK( 
203) +PEEK {204)*Q256) ;" ЕХР=" ; PEEK 
(207) ;" ACT="; PEEK (209) 

1190 7 CHR$(253) 


12 


1200 IF РЕЕК(203)-0255 THEN POKE 

204, (PEEK (204) 401) :РОКЕ 203,Q0:60 

TO 1220 

1210 POKE 203, (PEEK{203)+01) 

1220 POKE 764,0255:POKE 559,34 
1230 IF PEEK(764)=0255 THEN 1230 
1240 GOTO 1160 

1250 80-00401:2 " SUCESSFULL PASS 
NUMBER ";00:7 CHR${253) 

1260 FOR QE=Q1 TO 5:NEXT QE: SOUND 
80,90,80,80 

1270 IF РЕЕК(764) 090855 THEN 1290 
1280 GOTO 1140 

1290 POKE 764,0255 

1300 IF РЕЕК(764)-0255 THEN 1300 
1310 GOTO 1140 








Hot Off The Press 
An Addition To Benioff At 


Large 2 
QO 
This information was confirmed 
just before prinfing..... 
і) Тһе all new ATARI 1400XL. 
This coreected version of the 
1200XL will replace the 1200XL 
jn the Jine. It looks just 
like a 1200XL, put has the 
corrected bugs. | 
Ne x ft Issue 


| 2)The all пем ATARI 1400XLD. 
| A 1400 with two disk drives 


built in above the computer. 
The next issue is our 


July/August summer issue, 50 


3)A new disk drive (i.e. see 

the Tandem) is only 2" tall. please get your articles іп if 

It was described 45 being vou don’t want to wait until 

similar to the looks of the September!! Pictures ме сап 
use for the front Cover, 


new Rana drive. l 
especially made on the GTIA 


4)A new graphics tablet calied Sketchpad, most appreciated. 


the "Touch Tablet”. Use your 
finger, pen, pencil, to create 
pictures that go directly to 
the screen. 


WO All of this is hot 
information to be released at 


CES! J haven't been wrong 
VOCS SO So FR 


See You in July. 


mnm ФООО 


13 





OCKERS 


Machine Language Programming #7 


Addition, Subtraction and Page Crossing 
Horizontal Scrolling 

One byte will hold eight bits, enough to form the numbers zero 
through 255. What happens when we want to deal with numbers 
greater than 255? Somehow the operation must be transferred over to 
another byte. The easiest way to see how this works is to look at the 
operation of addition. 

Just like in decimal addition, you stack two numbers on top of each 
other and add column by column starting from the right. A 1 and a 0 (or 
a 0 and 1) gives a 1 in the sum column while 0 and 0 gives a zero. 1 and 
1 gives a zero with a 1 CARRY. you have to remember to add the carry 
in on the next column to the left. See if you can follow this addition: 
0110101 (decimal 53) 

+ 0010110 (decimal 22) 
1001011 (decimal 75) 

What happens if there is a carry on the leftmost column? try adding 

1 to 255: 

11111111 (decimal 255) 

+ 00000001 (decimal 1) 
00000000 (decimal 0, carry is set) 

The result is zero but a bit in a special location called CARRY is set 
to indicate the sum exceeds 255 and it is going to take two bytes to 
contain the sum. 

To address one of the more than 64,000 addresses available in the 
Atari we need two bytes, a LO byte and a HI byte. To add a two byte 
number to an address we first add the two LO bytes, putting the result 
in the LO byte of the sum. The HI bytes then are added along with 
carry and the result put in the HI byte of the sum. Actually the only 
instruction for addition is ADC (Add with Carry), so all addition 
operations should be preceded by a CLC (Clear Carry) so the condition 
of carry is known. 

If the number we are adding to our two byte number is 255 or less, 
we can simplify things by simply incrementing the high order byte 
rather than adding 0 + carry + HI order byte. Here is the code: 

CLC ; Prepare for addition 

LDA LOBYTE ; All done in the accumulator 

ADC #NUMBER ; Number is 255 or less 

BCC OVER! ; If carry clear no overflow 

INC HIBYTE ; Must have exceeded LO byte 

OVER ... ; Rest of code i 

There are a number of addressing modes for ADC but all operate 
with the accumulator and the result is placed in the accumulator. 
Where the number comes from depends on the addressing mode. 

in subtraction a digit often has to be borrowed from the column to 
the left. Likewise, when subtracting multiple byte numbers, borrowing 
can take place between bytes. Keeping track of borrows is again a 
function for the carry bit. The rule for subtraction is: always set carry 
before the subtraction. If carry is clear after subtracting two LO byte 
numbers, you know that a borrow needs to take place in the HI byte 
subtraction. The operation is SBC (Subtract with borrow). 

Again for numbers 255 or less we simplify: 

SEC ; Prepare for subtraction 

LDA LOBYTE 

SBC #NUMBER 

BCC OVER2 ; No borrow necessary 
DEC HIBYTE ; Down a page 
OVER2 ... Rest of code 

Dealing with two byte addresses brings about the idea of ‘PAGE’. 
The LObyte can hold 256 different values (0-255) and in addressing 
every 256 bytes constitutes a PAGE. If we increment to LObyte by one 
after reaching 255, it ‘rolls over’ to zero and the high byte should be 
incremented up once (1 page). In subtraction the number 0 rolls over to 
255. The horizontal scroll routine listed uses the ideas just presented. 
It is fairly complicated so some explaination is in order. In the Atari a 
separate processor (called Antic) handles the display of the screen. It 
has its own program (called the display list) which tells it what to do. 
Imagine 12 lines of text in mode 2 on the screen. Each line has one 
instruction in the display list and for at least the first, this instruction 
should indicate where to get the data for the screen. Remaining lines 
could just continue to pick up data where the provious one left off. 

Instructions which include the address of where to get data are 
called LMS (Load Memory Scan) instructions. LMS instructions are 
made of three bytes. The first indicates the graphics mode and other 
options while the second and third form the LO and HI bytes of a 
pointer to where the screen data for that line is to begin. 


For horizontal scrolling we need quite a bit of data (more than one 
screen worth). A separate string of data, enough for many screens, is 
provided for each line. There is an individual LMS instruction for each 
line. The LMS instructions are manipulated to move the screen 
through the data as shown below: 

SCREEN 

..ХХХХХХХХХХХХХХ... 

..ХХХХХХХХХХХХХХ... 

..ХХХХХХХХХХХХХХ... 

..ХХХХХХХХХХХХХХ... 

..ХХХХХХХХХХХХХХ... 

(LMS instructions indicate where data for screen is to begin) 

Code which handles the scrolling can be seen in lines 560-790 of the 
assembly listing. Each LMS Pointer is either incremented or 
decremented depending on the desired direction of movement (DIR). 
The use of the ideas discussed earlier can be easily seen. 

In the Basic program to follow, Mode 5 rather than graphics 2 is 
used and a new display list is poked into page 6 as follows: 

0600 1536 112 (decimal) ; 8 blank raster lines 
0601 1537 112 ; 8 more 

0602 1538 112 

0603 1539 85 LO1 HI1 ; LMS instr. ist line 
0606 1542 85 LO2 HI2 ; LMS instr. 2nd line 
10 more LMS instr. as above 

0627 1575 65 0 6 ; Jump back to beginning 

If updating the LMS byte was the only change involved, the scrolling 
would be fairly coarse, jumping one character at a time. Fortunately 
Atari provides fine scrolling where the movement is only part of a 
character width at a time. Lines 370-570 handle fine scrolling. The 
number in register HSCROL determines how much of a character shift 
is involved. In mode 5 there are 4 pixels horizontally across a 
character. To get the background to go left, the number in HSCROL is 
decremented from 3 to zero and then reset to 3 along with 
incrementing all LMS Pointers. Notice that when scrolling is active 
some movement takes place during each VBI, coarse scrolling taking 
place only every fourth time through. This is as fast as we can scroll 
without skipping some of the fine scrolling or leaving it out altogether. 

It is often necessary to keep track of just what portion of the data is 
on the screen at any one time. POS is used for this purpose and also 
to provide limits to motion. Lines 280-360 handle this chore. The 
direction flag DIR is either +1, -1 or 0 for background right, 
background left or no movement respectively. DIR is added to POS 
when a full scroll is performed. 

l've used this routine to form the background for a game. The Basic 
listing is called ‘Scrolling City Background’. | haven't decided yet if the 
game has enough merit to finish, but it will give you a good idea of the 
routine’s potential. Various characters are re-defined to form the 
buildings. The character set moving routine from ‘Wildwest’ was used 
except changed so RAMTOP is lowered 21 pages making room for: 1) 
player missile graphics - single line resolution 2) 3 K of screen data for 
12 lines of horizontal scrolling 3) a new character set with some 
characters revised. The 3K of screen data actually overlaps 1K into an 
unused portion of the PM area. Before altering RAMTOP, a GR. 23 
command clears the top 4K of memory. 

It takes quite a bit of data to fill our 3K of screen data. | don’t think 
most people enjoy typing all that in so Lines 2300-2900 draw the 
rectangular buildings. The process could be speeded up considerably 
by coding this in machine language. You may wish to try it. 

—Stan Ockers 





GTIA SKETCHPAD 


MODIFICATIONS by Scott Berfield 
644 W.Surf, Chicago, IL 60657 
Hi there. Some of you may have typed in a program of mine called 
"GTIA Sketchpad”. Well | have since made a few modifications which 
act to make it a little more friendly, as well as another version of the 


screendump from the first version. | also have a very simple routine to. . 


allow you to load a screen created by "GTIA S." into your own pro- 
grams. 

The change applies only to cassette users out there. When | wrote 
the save/load routines in SKETCHPAD | didn’t know about the 
possibility of recording a file with short inter-record gaps on cassette. 
By formatting a file with the short gaps you shorten load/save time by 
almost 30-40%. To implement this change the following lines: 

1080 OPEN #N1,8,128,FILE$ 
1150 OPEN #N1,4,128, FILE$ 
Delete line 1160 
This will only affect cassette users, the disk drive will ignore the 
change. 
By making this change you lose the ability to save the color 
registers, but | think the speed increase justifies the loss. 
Screens recorded by the first version of this program will not be 
compatible with these changes. The easiest remedy for this is to 
change only the save routine; load a previously saved screen; save it; 
and then change the load routine. 
In a drawing | was doing the other day, | had to plot many, many 
points and | found it tiresome to keep using the keyboard. To change 
this as well as the LINE and FILL functions to allow for continuous 
use (until you hit ESC) make the following changes & additions: 
210 ?СНА$(125);” Place the cursor within the outline and press 
trigger(ESC to exit).” 
214 TRAP 40 
215 IF PEEK(KEY) = 28 THEN POKE KEY,NOKEY:GOTO 40 
340 YP = YP + t:LOCATE XP,YP,COLR:IF COLR =C THEN GOTO 210 
360 TRAP 40000:GOTO 40 
580 ?CHR$(125);” Position cursor and press trigger to plot points(ESC 
to exit).” 
85 IF PEEK(KEY) = 28 THEN POKE KEY,NOKEY:GOTO 40 
610 GOTO 580 x 620 ?CHR$(125);" Position cursor and press trigger to 
plot the starting point(ESC to exit)." 
640 ?CHR$(125;" Now position cursor at endpoint and press 
trigger(ESC to exit)." | 
650 GOSUB JOYSTICK:PLOT CXP,CYP:DRAWTO ХР,ҮР 
655 IF PEEK(KEY) = 28 THEN POKE KEY,NOKEY:GOTO 40 
656 GOTO 620 
These changes should make things go a little more smoothly for 
complicated drawings. 
The new screendump is quite similar to the routine used in the 
previous version, and І include coding to allow the choice of which you 
prefer to use. There are two main differences in this version: it 
produces a randomized pattern, and it is one of the slowest 
screendumps in history. 
The effect produced is rather more pleasing on smoothly rounded 
surfaces than is the more patterned gray scale of the other version. 
When | say it's slow, believe me! | recently got grceries while a screen 
printed. | got back before it finished. For what it's worth, here it is: 
185 IF ОРТ 257 THEN GOTO 32000 
32000 ?CHR$(125);"RANDOM OR PATTERNED"?(ESC TO EXIT)" 
32010 OPEN 93,4,0,7К:”:0ЕТ #3,A:CLOSE ЯЗІҒ A = ASC("P") THEN 
GOTO 32700 

32020 IF А = 27 THEN GOTO 40 

32100 TRAP 32280 

32110 DIM GRAY(3,15), BUFFERS$(400):OPEN 97,8,0,”Р:” 

32120 FOR Y =0 TO 15:FOR X=0 TO 3 

32130 READ Q:GRAY(X,Y)  Q 

32140 NEXT X:NEXT Y 

32150 DATA 255,255,255,255,254,253,251,247 

32160 DATA 254,222,253,219,222,219,187,183 

32170 DATA 222,181,213,183,181,213,244,173 

32180 DATA 181,177,213,149,177,149,212,165 

32200 DATA 145,33,148,68,33,36,68,72 

32210 DATA 33,1,36,8,1,4,16,64 

32220 DATA 0,4,0,64,0,0,0,0 

32230 BUFFER$(1) = CHR$(27):-BUFFERS$(2) = "K":BUFFER$(3) = CHR$ 
(128) BUFFER$(4) = CHR$(1) 

32230 BUFFER$(1) = CHR$(27):BUFFER$(2) = ’K”:BUFFER$(3) = CHR$ 
(128):BUFFER$(4) = CHR§$(1) 

32240 ?#7:2#7:2#7;CHR$(27);”A”;CHRS$(8) 

32250 FOR X=79 TO 0 STEP -1:P=5:FOR Y=0 TO 191:LOCATE 
X,Y,A:BUFFERS$(P) = CHR$(GRAY(INT(RND(0)*4),A)) 
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32260 ee + 1) = CHR$(GRAY(INT(RND(0)*4),A)):P = P + 2: 
32270 ?87:” “;BUFFER$:NEXT X 
2280 TRAP 40000:GOTO 40 

Anybody who has a machine language screen dump for GR.9-11 is 
invited to contact me. 

And finally we get to the problem of using these drawings in your 
own programs. The most straightforward method is to use a version of 
the load routine from the main program (lines 1130-1190). This uses a 
direct call to the central input/output utility in the OS. This is 
explained in DE RE ATARI page 8-36. 

Your program should set up a graphics 9, 10, or 11 display (with or 
without text window) then jump to the following subroutine (renumber 
as needed): 

32000 TRAP 32040:POKE 764,12 

32010 OPEN #1,4,128,FILESPEC(3RD PARAMETER SHOULD BE 0 
FOR SCREENS CREATED WITH THE FIRST VERSION OF THE 
PROGRAM) 

32020 POKE 850,7:POKE 852,PEEK(88):POKE 853,PEEK(89):POKE 
856,255:POKE 857,255 

32030 DUM = USR(ADR(“‘hhh*LVd”),16):CLOSE #1:ВЕМ * AND d ARE 
INVERSE 

32040 TRAP 40000:RETURN 

Have your program & screen image on the same disk or in order on 
cassette. 

| invite someone to write a routine to read a picture into data 
Statements or a string so the image can be an integral part of the 
program. Perhaps a machine language routine could then move the 
image into screen memory. I'm interested in seeing what all of you can 
add to GTIA SKETCHPAD that | have missed. 

[—Please send to us your picures so we may put some of them in 
ACE! — Editor.] 





Marc Benioff 
teaches 


How To Do A VBI In Assembler 


Many of you are struggling with assembly language. | have recently 
written a routine to set up a vertical blank interrupt, and then rotate the 
border colors. | hope you can understand this source code, it will ex- 
plain itself. Type this routine into your Assembler Editor cartridge and 
Assemble It. Save the program from $600 to $6FF. Then load it in 
through BASIC. Good Luck. 

0 ; LOAD IN THE OBJECT CODE FROM DOS, AND THEN DO A 

X = USR(1536). THIS WILL START A VBI READING FROM $650. 
015 
02 ; THIS PROGRAM CREATES A VBI 
03 ; ROUTINE, AND SETS THE POINTERS. 

04 ; THE POINTERS POINT AT $650 

05 ; THE POINTERS ARE SET АТ $600 

06 ; 

07 ; YOU ARE THEN ABLE TO CALL IT 

08 ; FROM BASIC. 

09: 

10 * 2 $0650 ; PAGE 6.5 

20 START LDA #$0 ; PUT OIN A 

25 LDY #$0 ; PUT O IN Y 

30 BEGIN LDX $D20A ; THIS IS THE INPUT AREA, PUT WHAT EVER IS 

INPUTING HERE. $D20A IS A RANDOM # GENERATOR 
40 STX $2C8 ; THIS IS THE OUTPUT AREA. PUT YOUR OUTPUT HERE. 

THE EXAMPLE IS THE COLOR 4 REGISTER. 

50 INY ; INCREMENT Y 

60 CPY #$10 ; LOOP 10 TIMES 

70 BNE BEGIN ; GO TO BEGIN IF NOT 10X 

80 JMP $E45F ; END OF VBI 

0100 * = $0600 ; PAGE 6 x 0120 VBI = $222 ; POINTER FOR VBI 
0130 LDA #START&255 ; WHERE IS THE HIGH OF START 
0140 STA VBI ; STORE IT AT THE POINTER 

0150 LDA #START/256 ; WHERE IS THE LOW OF START 
0160 STA VBI +1 ; STORE IT AT THE POINTER + 1 

0165 PLA ; POP THE STACK 

0170 RTS ; GO BACK TO BASIC, ETC. 

0180 ; 

0190 ; A E MEMBERS - 

0200 ; | KNoW MY SOURCE COMMENTS ARE 

0210 ; A BIT CONFUSING. BUT THEY 

0220 ; WILL GET BETTER WITH TIME. 

0230 ; THIS IS PROBABLLY A LITTLE 

0240 ; ELEMENTARY TO MOST OF YOU, 

0250 ; BUT | HOPE IT TEACHES HOW TO 

0260 ; DO A VBI FOR AT LEAST ONE. 


SHANE ROLIN'S UTILITIES 


MICROSOFT NOTE 


Anyone interested in starting a MicroSort column, or anyone who 
has written in MicroSoft for the ATARI and are willing to submit pro- 
grams, tips, infomation, etc. to help me write one, please contact me, 
Shane Rolin, at 118 South Ridge Dr., Monroeville, PA 15146 or call 


412-372-0616. 
R-A-M-M-E-R 


AHHH! So you just bought a new RAM board and you want to test it, 
or you've had your RAM boards, and you just want to test them out to 
see if they are working properly. Here is a program to test ALL free 
RAM. To run it, simply type it in and RUN it. If you want to test all 
possible free RAM, delete the REM statements. The program is self- 
explanatory. 


Blink-Blink 


This is a neat Machine-Language subroutine which makes the 
cursor Blink-Blink-Blink! Read the REM statemants to find out how to 
use the BLINKING CURSOR routine. 


-Have Fun! —Shane Rolin -- P.A.C.E. 


Sector-Reader 


(c) CSOFTWARE 1983 by SHANE ROLIN 
Sector Reader is a Basic program allowing you to inspect each 
sector on the disk. The program is self-explanatory. There are two 
versions of this program, ATARI BASIC and MACHINE-LANGUAGE. 
The M/L version should be available from the librarian. Ask for it. 
— Shane Rolin -- P.A.C.E. 


100 REM —--SECTOR INSPECTOR 

119 REM ---ЕХАМІМЕЗ DISK SECTORS 

120 REM ---1С)1983 CSOFTWARE 

130 REM ---15K-DISK PEG. 

146 REM --- 

150 REM ---ВҮ SHANE POLIN 

160 РОКЕ 14,64:POKE 53774 64 

170 POKE 769,1 

180 POKE 776,82 

190 DIM A$1128) ,B$110) 

200 B$-"h Sd'":BEM STRING HAS d i 

n iverse and last character is a 

diamond (CTRL-. 

210 SETCOLUP 2,0,9 

220 TRAP 510 

230 FOR С-1 TO 1828:6$(C,Ciz" ":NE 

XT С.РОКЕ 82,2:PÜKE 83,39 

246 7 СНВ%(125); "SECTOR INSPECTOR 
JC (С)1983 C3UFTWAPE" 

250 POKE 83,34:POKE 82,3 

- 260 D=ADPL A$) 

270 E=INT(D/254) 

280 FzD-iEX254) 

290 POKE 772,F 

300 POKE 773,Е 

310 POKE 770,82 

320 POSITION 3,2:7 

NUMBER":POKE 752,0 

330 POSITION 3,3:7 

340 POSITION 3.3: INPUT SECTOR 

350 IF SECTOR(1 OR SECTOR? 720 THE 

N 320 

260 SECTHI-INT(SECTOR/2561 

370 SECTLO-ZSECTOR- £ SECTHIXe56) 

380 POKE 778,5ECTLO 

390 POKE 779, SECTHI 

400 G=USR(ADRIB$) ) 

410 H-PEEK(7711 

420 POKE 752,1 

450 POSITION 3,5:? "DISK STATUS=" 
He (1=0k}" 

439 REM ON LINE 440 AND LINE 4906, 
THE CHARACTER IN QUOTES I5 AN ES 

C-ESC 

440 POSITION 3,11:FOR G=1 TO 128: 
1 “n АФ (С, 6); :NEXT G 

459 FOR G-1 TO 128:A${Gi="" ":NEXT 
C 

466 POSITION 8,17:7 "HIT ANY KEY 
WHEN READY” 

470 POKE 764,255 

480 IF PEEK{764)=255 THEN 480 

490 POSITION 3,11:7 "";A$:POSITIO 
М 3,17:7 A$: POKE 764,255 

900 GOTO 320 

510 POSITION 3,10:2 "ERROR-";PEEK 
(195) ;CHR${253):FOR C=1 TO 1000:N 

EXT C:TRAP 32767:TRAP 510:GOTO 23 
0 
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TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


01 06) & Design Services 


ING. 
30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


à Atari 
ХА. Computer 


if ENTHUSIASTS | 
3662 Vine Maple Dr Eugene OR 97405 


FIRST 
CLASS 
MAIL 








Atari Computer Enthusiasts 
A.C.E. is an independent computer club and user's group with no 
connection to the Atari Company, a division of Warner 
Communication Company. We are a group interested in educating our 
members in the use of the Atari Computer and in giving the latest 
News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $10 a year for U.S., and $20 a year Overseas 
Airmail and include about 10 issues a year of the ACE Newsletter. 


Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 
President—Kirt Stockwell, 4325 Sean, Eugene, OR 97402 
503-689-5355 
Vice Pres—Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 
503-686-1490 
Secretary —Charles Andrews, POB 1613, Eugene, Or 974401613 
503-747-9892 
Librarian— Chuck and Jody Ross, 2222 Ironwood, Eugene, OR 97401 
503-343-5545 
Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 
503-344-6193 
—Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 
503-484-9925 
E.R.A.C.E. (Educational SIG Editor)-Ali Erickson, 295 Foxtail Dr., 
Eugene, Or 97405 503-687-1133 
Send a business-size SASE to the Ross' for the new, updated ACE 
Library List!! 
Bulletin Board 
(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
disk drives, an Atari 825 printer, a Hayes SmartModem; running the 
ARMUDIC Bulletin Board software written by Frank L. Huband, 1206 N. 
Stafford St., Arlington, VA 22201. See the Nov '82 issue for complete 
details. 


